home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Updates / General / Canvas 3.0.4->3.0.5 / Updated Tools / Separations / Separations.rsrc / hd11_1103 < prev    next >
Encoding:
Text File  |  1992-10-05  |  894 b   |  58 lines
  1. %%BeginProcSet: Adobe_customcolor 0 0
  2. % Custom Color Operators
  3. % Version 1.0 5/9/1988
  4. % Copyright (C) 1987, 1988
  5. % Adobe Systems Incorporated
  6. % All Rights Reserved
  7. currentpacking true setpacking
  8. userdict /Adobe_customcolor 5 dict dup begin put
  9. /initialize            % - initialize -
  10. {
  11. /setcustomcolor where
  12.     {
  13.     pop
  14.     }
  15.     {
  16.     Adobe_customcolor begin
  17.     Adobe_customcolor
  18.         {
  19.         dup xcheck
  20.             {
  21.             bind
  22.             } if
  23.         pop pop
  24.         } forall
  25.     end
  26.     Adobe_customcolor begin
  27.     } ifelse
  28. } def
  29. /terminate            % - terminate -
  30. {
  31. currentdict Adobe_customcolor eq
  32.     {
  33.     end
  34.     } if
  35. } def
  36. /findcmykcustomcolor    % cyan magenta yellow black name findcmykcustomcolor object
  37. {
  38. 5 packedarray
  39. }  def
  40. /setcustomcolor        % object tint setcustomcolor -
  41. {
  42. exch
  43. aload pop pop
  44. 4
  45.     {
  46.     4 index mul 4 1 roll
  47.     } repeat
  48. 5 -1 roll pop
  49. setcmykcolor
  50. } def
  51. /setoverprint        % boolean setoverprint -
  52. {
  53. pop
  54. } def
  55. currentdict readonly pop end
  56. setpacking
  57. %%EndProcSet
  58.